unit fmSearch;

 
interface

uses
  Windows, SysUtils, ADODB, Controls, Classes,fs_iinterpreter, fs_ipascal,db,uGlobal,uShare , Forms ;



 function IncrementSearch(S_DataSet:TDataSet;KeyField,ASearchFields,AShowFields:string;AFormClassName:string='';sf:string='';p_ADOCon:TADOConnection=nil): string; overload;  //11111

 function IncrementSearch(S_DataSet:TDataset;ATableName:string;flag:integer;AParamList:string= '';p_ADOCon:TADOConnection=nil): string; overload;//22222

 function IncrementSearch(ATableName: string; flag: integer;AParamList: string; Out ARecvFields: string;
            Out AReturnValues: string; Out OutMsg: string;adsDetail:TDataSource=nil;AFilterValue:string='';
                AUserOperMode:TUserOperMode=omDblClick;InvokeObject:TObject=nil;p_ADOCon:TADOConnection=nil):boolean; overload;  //33333 ex
 function IncrementSearch(s_DataSet: TDataSet; KeyField: string; ASearchFields, AShowFields:string;
       AMultiSelect:boolean ; AFormClassName: string = ''; sf: string = '';AFW: string ='';
       InDataSet: TDataSet=nil; RepeatValue: Boolean=False; p_ADOCon:TADOConnection=nil):string; overload; //55555

implementation
  uses ufmSearch;


function IncrementSearch(S_DataSet:TDataSet;KeyField,ASearchFields,AShowFields:string;AFormClassName:string='';sf:string='';p_ADOCon:TADOConnection=nil): string; overload;  //11111
begin
  if p_ADOCon=nil then
    result := ufmSearch.IncrementSearch(S_DataSet,KeyField,ASearchFields,AShowFields,AFormClassName,sf,ADOLink)
  else
    result := ufmSearch.IncrementSearch(S_DataSet,KeyField,ASearchFields,AShowFields,AFormClassName,sf,p_ADOCon);
end;
function IncrementSearch(S_DataSet:TDataset;ATableName:string;flag:integer;AParamList:string= '';p_ADOCon:TADOConnection=nil): string; overload;//22222
begin
  result := ufmSearch.IncrementSearch(S_DataSet,ATableName,flag,AParamList,p_ADOCon) ;
end;

function IncrementSearch(ATableName: string; flag: integer;AParamList: string; Out ARecvFields: string;
            Out AReturnValues: string; Out OutMsg: string;adsDetail:TDataSource=nil;AFilterValue:string='';
                AUserOperMode:TUserOperMode=omDblClick;InvokeObject:TObject=nil;p_ADOCon:TADOConnection=nil):boolean; overload;  //33333 ex
begin
  result := ufmSearch.IncrementSearch(ATableName,flag,AParamList,ARecvFields,
              AReturnValues,OutMsg,adsDetail,AFilterValue,
                AUserOperMode,InvokeObject,p_ADOCon);
end;

function IncrementSearch(s_DataSet: TDataSet; KeyField: string; ASearchFields, AShowFields:string;
       AMultiSelect:boolean ; AFormClassName: string = ''; sf: string = '';AFW: string ='';
       InDataSet: TDataSet=nil; RepeatValue: Boolean=False; p_ADOCon:TADOConnection=nil):string; overload; //55555
begin
  result := ufmSearch.IncrementSearch(s_DataSet, KeyField, ASearchFields, AShowFields,
               AMultiSelect, AFormClassName, sf, AFW, InDataSet, RepeatValue, p_ADOCon);
end;

end.
